100 OPEN2,2,3,CHR$(5)+CHR$(0)
110 PRINT"WAITING..."
120 GET#2,A$:IF A$<>"S" THEN120
130 GET#2,A$:IF A$="S" OR A$="" THEN130
140 FOR I=6000 TO 6511
150 GET#2,A$:IF A$="" THEN150
160 A=ASC(A$):C=(C+A)AND255
170 POKE I,A:PRINT"#";
180 NEXT
190 IF C<>0 THENPRINT:PRINT"?CHK ERROR":CLOSE 2:END
200 CLOSE 2:SYS 6000